home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / MSD-DU15.ARC / DISK PROTECT (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  260 b   |  11 lines
  1. 100 PRINT"[147]DISK PROTECTED"
  2. 110 OPEN15,8,15:PRINT#15,"I0":OPEN2,8,2,"#"
  3. 120 PRINT#15,"U1:";2;0;18;0:GOSUB170
  4. 130 PRINT#15,"B-P:";2;2:PRINT#2,CHR$(80);:GOSUB170
  5. 140 PRINT#15,"B-P:";2;166:PRINT#2,CHR$(80);:GOSUB170
  6. 150 PRINT#15,"U2:";2;0;18;0:GOSUB170
  7. 160 CLOSE2:PRINT#15,"I0":CLOSE15:END
  8. 170 INPUT#15,EN,EM$,ET,ES
  9. 180 IFENTHENPRINTEN,EM$,ET,ES:STOP
  10. 190 RETURN
  11.